Mission 3

home *** CD-ROM | disk | FTP | other *** search

/ Mission 3 / Mission 3.zip / Mission 3.iso / spiele / sac / source / bride.bas (.txt) next >

Wrap

Atari STOS Basic | 1989-07-28 | 16KB | 385 lines

10 REM *** S.A.C ADVENTURE EDITOR v1.2 *** 100 GOSUB 1000 IF 1010 IF 1020 IF 1030 IF 1040 IF 1050 IF 1060 GOTO 1070 REM ** INVENTORY ** 1080 FOR 1090 IF 110 ON ERROR 1100 IF 1110 NEXT 1120 IF 1130 GOTO 1140 REM *** GET OBJECT *** 1150 IF 1160 REM 1170 REM 1180 REM 1190 REM 120 VARNAME 1200 REM PUT SPECIAL GET COMMANDS HERE 1210 REM 1220 REM 1230 REM 1240 REM 1250 REM 1260 REM 1270 REM 1280 REM 1290 REM 130 REM 1300 REM 1310 REM 1320 REM 1330 FOR 1340 IF 1350 IF 1360 NEXT 1370 FOR 1380 IF 1390 IF 140 VARNAME 1400 IF 1410 IF 1420 IF 1430 NEXT 1440 IF 1450 REM *** DROP OBJECT *** 1460 IF 1470 REM 1480 REM 1490 REM 150 REM 1500 REM PUT SPECIAL DROP COMMANDS HERE 1510 REM 1520 REM 1530 REM 1540 REM 1550 REM 1560 REM 1570 REM 1580 REM 1590 REM 160 REM 1600 REM 1610 REM 1620 FOR 1630 IF 1640 NEXT 1650 FOR 1660 IF 1670 IF 1680 IF 1690 IF 170 REM PUT YOUR VARIBLES HERE 1700 NEXT 1710 IF 1720 REM *** EXAMINE OBJECT *** 1730 IF 1740 REM 1750 REM 1760 REM PUT REVEALING OBJECT COMMANDS HERE 1770 REM 1780 REM 1790 REM 180 REM 1800 REM 1810 REM 1820 FOR 1830 IF 1840 IF 1850 IF 1860 IF 1870 NEXT 1880 REM *** EXAMINE LOCATION *** 1890 IF 190 REM 1900 REM 1910 REM 1920 REM 1930 REM PUT LOCATION REVEALING COMMANDS HERE 1940 REM 1950 REM 1960 REM 1970 REM 1980 FOR 1990 IF 20 KEY 200 REM 2000 IF 2010 NEXT 2020 IF 2030 REM *** WEAR OBJECT *** 2040 IF 2050 REM 2060 REM 2070 REM 2080 REM PUT SPECIAL WEAR COMMANDS HERE 2090 REM 210 REM 2100 REM 2110 REM 2120 REM 2130 FOR 2140 IF 2150 IF 2160 IF 2170 IF 2180 NEXT 2190 IF 220 REM 2200 REM *** REMOVE OBJECT *** 2210 IF 2220 REM 2230 REM 2240 REM PUT SPECIAL REMOVE COMMANDS HERE 2250 REM 2260 REM 2270 REM 2280 REM 2290 REM 230 REM 2300 FOR 2310 IF 2320 IF 2330 IF 2340 IF 2350 NEXT 2360 IF 2370 REM *** OPEN *** 2380 IF 2390 REM 240 REM *** CHECK FOR PICTURE *** 2400 IF 2410 REM ENTER OPEN COMMANDS HERE 2420 REM 2430 REM 2440 REM 2450 IF 2460 REM *** CLOSE *** 2470 IF 2480 REM 2490 REM 250 IF 2500 REM ENTER CLOSE COMMANDS HERE 2510 REM 2520 REM 2530 REM 2540 IF 2550 REM *** QUIT SECTION *** 2560 PRINT 2570 VARNAME 2580 IF 2590 IF 260 GOTO 2600 GOTO 2610 PRINT 2620 PRINT 2630 VARNAME 2640 IF 2650 DEFAULT 2660 REM *** LOAD A PICTURE *** 2670 FOR 2680 NEXT 2690 FOR 270 REM ** OPEN HIDDEN WINDOW ** 2700 SCREEN COPY 2710 NEXT 2720 GOTO 2730 REM *** GAME DATA *** 2740 DATA 2750 DATA 2760 REM ****** LOW PRIORITY COMMANDS ****** 2770 REM 2780 REM 2790 REM 280 PEN 2800 REM 2810 REM 2820 REM if none of the local commands 2830 REM are used then the game looks at this part 2840 REM to see if any of these commands are used 2850 REM this is the part of the game where 2860 REM the game checks for low priority events 2870 REM 2880 IF 2890 IF 290 REM ***** PRINT LOCATION ***** 2900 REM 2910 REM 2920 REM 2930 REM 2940 REM 2950 REM 2960 REM 2970 REM 2980 REM 2990 REM 30 DIM 300 PRINT 3000 REM 3010 REM 3020 REM 3030 REM 3040 REM 3050 REM 3060 REM 3070 REM 3080 REM 3090 REM 310 IF 3100 REM 3110 REM 3120 REM 3130 REM 3140 REM 3150 REM 3160 REM 3170 REM 3180 REM 3190 REM 320 FOR 3200 REM 3210 REM 3220 IF 3230 FOR 3240 IF 3250 IF 3260 IF 3270 NEXT 3280 GOTO 3290 FOR 330 REM *** HIGH PRIORITY EVENTS *** 3300 VARNAME 3310 IF 3320 NEXT 3330 REM <<< ADVEN DATA FILE NOT ON DISK >>> 3340 LOCATE 3350 REM <<< DISK ERRORS >>> 3360 IF 3370 RESUME 3380 REM ~~~ LOAD SAC DATA ~~~ 3390 OPEN IN 340 REM 3400 LINE INPUT 3405 FOR 3410 LINE INPUT 3415 FOR 3420 LINE INPUT 3430 LINE INPUT 3435 FOR 3440 FOR 3450 FOR 3460 FOR 3480 FOR 350 IF 3500 FOR 3520 FOR 3530 FOR 3550 CLOSE 360 IF 3600 REM ~~~~ PUT OBJECTS BACK IN OLD POSTIONS AND RESET FLAGS ~~~~ 3610 OPEN IN 370 REM 380 REM 3800 LINE INPUT 3810 FOR 3820 CLOSE 390 REM 40 DIM 400 REM 4000 REM *** SAVE GAME POSTION *** 4005 PRINT 4010 OPEN OUT 4020 PRINT 4030 REM 4040 PRINT 4050 REM 4060 REM 4070 REM PUT VARIBLES TO BE SAVED HERE 4080 REM 4090 FOR 410 REM 4100 CLOSE 420 REM 430 REM this is the part of the game 440 REM where the computer checks 450 REM for any danger or any characters 460 REM befor the player gets a chance 470 REM to input a command 480 REM 490 REM 50 FOR 500 REM 5000 REM *** LOAD GAME POSTION *** 5005 PRINT 5010 OPEN IN 5020 INPUT 5030 REM 5040 INPUT 5050 REM 5060 REM 5070 REM PUT VARIBLES TO BE LOADED HERE 5080 REM 5090 FOR 510 REM 5100 CLOSE 520 REM 530 REM 540 REM 550 REM 560 REM ** CHECK FOR OBJECT PRESENT ** 570 VARNAME 580 FOR 590 IF 60 FOR 600 NEXT 610 IF 620 IF 630 FOR 640 IF 650 NEXT 660 VARNAME 670 REM **** SPILT LINE INTO SINGLE WORDS **** 680 LINE INPUT 690 INC 70 ON ERROR 700 VARNAME 710 REPEAT 720 VARNAME 730 IF 740 VARNAME 75 DIR$ 750 UNTIL 760 REM *** CHECK IF DIRECTION ENTERED *** 770 FOR 780 IF 790 NEXT 80 LOAD 800 REM 810 REM 820 REM 830 REM 840 REM PUT DIFFERENT EXITS HERE 850 REM 860 REM 870 REM 880 REM 890 REM 90 REM ***** VARIBLES ***** 900 REM 910 REM 920 REM 930 REM 940 REM 950 REM 960 IF 970 IF 980 REM **** NORMAL ADVENTURE COMMANDS **** 990 IF